1 PRINT"[147]";:POKE53281,6:POKE53280,6:PRINTCHR$(14):P$="[209]: [209]UIT. [193]NY OTHER KEY CONTINUES. [151]":PRINT"":PRINT"[150] ";:PRINT" [154][146][161] [154][146][161] [154][146][161] [154][146][161] [154][146][161] ";:PRINT" [154][146][161] [154] [146][161] [154] [146][161] [154][146][161] [154][146][161] [187][172]"; 2 PRINT" [154] [153][146][161] [153][146][162][162][161] [153][146][162][162][161] [153][146][187] [153][146][161] [153][146][162]";:PRINT"[162][161] [153][146][162][162][161][160] [153][146][161] [153] [146][161] [153][146][162][162][161] [153][146][162][162][161]";:PRINT" [161][146][161] [153] [158][146][161] [158][146][161] [158] [146][161] [158][146][161] ";:PRINT" [158] [146][161] [158] [146][161] [158][146][187] [158][146][161][161] [158] [146][161] [158]";:PRINT" [146][161] [161][146][161] [158] [188][146][162][187] [146][161]  [146][161] [146][162][161]"; 3 PRINT" [146][162] [146][161] [146][162] [146][161] [188][146][187]  [146][161] [146][188]";:PRINT"[187][146][161] [146][162] [146][161] [146][162][187]  [159][146][161] [159][146][161] ";:PRINT" [159][146][161] [159][146][187] [159][146][161] [159][146][161] [159][146][161] [159] [146][161]";:PRINT" [159] [146][161] [159][146][161] [159][146][161] [159] [146][161] [159] [158][188][146][162][162]";:PRINT"[162][188][146][162][162][162][188][146][162][188][146][162][188][146][162][162][162][188][146][162][162][162][188][146][162] [188][146][162] [188][146]"; 4 PRINT"[162][162][162][188][146][162][162][162][188][146][162] [188][146][162] [154] [146][161]";:PRINT"[187][161][161] (C) [159] ";:PRINT" [146][161][187][188][146][172] [150] ";:PRINT" [188][146][162] [190][172] [162][162]  [146][161][162] ";:PRINT" [146][161][161] [146][161][162][162] [146][161][161][162][187][161] "; 5 PRINT"[158] [146][161] [146][161][188][146][161][161] [146][161] [146][161][161] ";:PRINT" [154] [146][161] [161][161][161][161] [146]  [146][161][161] [161] [161][146] ";:PRINT" [161][162][162][172][146] [161][146] [161][161][146][161][161] 1986 [150] [146][161] [146][161][161][161][161]";:PRINT"[161] [146]  [146][161] [146][187][161][188][161][161][146][187][161] [146][162][161] [190][146][188][162][161][161][146][161][161] ";:PRINT" [159] [146][161] [146][161][161][161][161][161] [146]  [146][161] [146][161][161] [161][161][146][161][161]"; 6 PRINT" [146][161] [161] [161][146][161][161]  [188][146][162][162][188][188][188][188][146][162][172]";:PRINT" [188][146][162][162][188][146][162][190][146][162][162][188] [188] [146][162][162][190][146][162][172][190] [153] ";:PRINT" [188][146][162][162][162][162][162][162][162][190] [188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190] ";:PRINT" [154] WITH [205]ED-[210]ES GRAPHICS ";:PRINT" [159] "; 7 PRINT" [155][146] ";:PRINT" [153]*** [208]RESS A KEY TO CONTINUE ***"; 8 GETA$:IFA$=""THEN8 9 GOTO51:DATA" [144] [211]CREEN [199]EM "," [163][163][163][163][163][163][163][163][163][163][151] "," tHIS PROGRAM IS 'share-ware'. pLEASE ","DISTRIBUTE FREELY TO YOUR FRIENDS. iF ","YOU'VE ENJOYED THIS PROGRAM AND WISH TO 10 [131]"SUPPORT THE PURSUIT OF CHEAP SOFTWARE, ","SEND A $5.00 DONATION TO: ","^"," STOPPEEKILLY CHR$ODFREY "," cACTUS jACK'S sOFTWARE "," 710-b n. cENTER sTR. 11 DATA" [193]RLINGTON, [212]X 76011[151] ","^"," aLSO IF YOU HAVE SUGGESTIONS FOR ANY ","IMPROVEMENT OR ADDITIONS TO THE PROGRAM,","CONTACT THE AUTHOR AT THE ABOVE ADDRESS.","tHE AUTHOR WISHES TO THANK THE MEMBERS 12 [131]"OF THE (null)RIGHT$STR$-LENRIGHT$(null)RIGHT$VAL(null) LEN(null)(null)(null)(null)STR$(null)(null)VAL LEN(null)(null)PEEKPOKE FOR ALL","THEIR SUPPORT AND SUGGESTIONS. ","#"," STOPRIGHT$NTRODUCTION "," TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKE "," sCREEN gEM IS AN ADVANCED LOW-RES 13 DATA"(CHARACTER GRAPHICS) SCREEN DESIGN AND ","SAVING UTILITY. a SCREEN MAY BE DESIGNED","USING ALL AVAILABLE KEY-BOARD GRAPHICS; ","ADDITIONALLY, NEW 'med-res' JOYSTICK ","CONTROLLED GRAPHICS MAKE DESIGNING BOTH 14 [131]"FUN AND EASY. "," aFTER DESIGNING A SCREEN, THE sCREEN ","gEM WILL CREATE FOR YOU A PROGRAM FILE ","CONSISTING OF PRINT STATEMENTS OF YOUR ","SCREEN WHICH YOU MAY USE IN YOUR OWN 15 DATA"PROGRAMS FOR MENUS, HELP SCREENS OR IN ","GAMES. "," yOU MAY ALSO SAVE THE FILE FOR LATER ","EDITING IN A SEQUENTIAL FORMAT. tHIS ","FORMAT CAN ALSO BE USED FOR SENDING 16 [131]"GRAPHIC SCREENS TO GRAPHIC BASED bbsS. "," tHE PROGRAM WAS DESIGNED TO BE uSER ","fRIENDLY. iF YOU HAVE ANY SUGGESTIONS ","FOR IMPROVEMENT, LET ME KNOW... "," bILLY gODFREY ","# 17 DATA" [144][201]NSTRUCTIONS "," [163][163][163][163][163][163][163][163][163][163][163][163][151] "," [215]HEN RUN, THE PROGRAM TAKES A FEW ","SECONDS TO SET UP. [193]FTER SETTING UP, THE","FIRST PROMPT YOU WILL SEE IS: 18 [131]" '(null)IGHT OR STR$ARK SCREEN?' "," VALNTER A '(null)' FOR A LIGHT GREY SCREEN ","OR 'STR$' FOR A DARK GREY BACKGROUND. (null)HE ","BACKGROUND COLOR ISN'T SAVED WITH YOUR ","FILES. (null)HE COLOR CHOICE IS ONLY AN AID 19 DATA"IN EDITING. "," [212]HE NEXT PROMPT IS: "," '[206]UMBER OF LINES TO SAVE?' "," [197]NTER A NUMBER FROM 1 TO 25 FOR THE ","NUMBER OF LINES YOU WISH TO EDIT. [212]HE 20 [131]"PROGRAM WILL NOT ALLOW YOU TO EDIT BELOW","THAT NUMBER; HOWEVER, YOU MAY CHANGE THE","NUMBER LATER AS DESCRIBED BELOW. "," ATNFTER A SHORT DELAY, YOU WILL BE IN ","'(null)ED-(null)ES' JOYSTICK DESIGN MODE. (null)O GET 21 DATA"A HELP SCREEN FROM EITHER '[205]ED-[210]ES' OR ","KEYBOARD MODE, PRESS THE [198]1 KEY. [193]N ","EXAMPLE OF THE HELP SCREEN FOLLOWS. ","@"," [144][203]EY [198]UNCTIONS "," [163][163][163][163][163][163][163][163][163][163][163][163][163][151] 22 [131]"mED-rES MODE: ","^","k: SWITCHES TO KEYBOARD MODE FOR FULL "," USE OF CHARACTER GRAPHICS. ","^","+: SLOW DOWN THE CURSOR/JOYSTICK SPEED "," FOR DETAILED DRAWING. ","^ 23 DATA"-: SPEEDS UP CURSOR/JOYSTICK. ","^","c: TOGGLE CURSOR COLOR TO EASE DRAWING "," ON DIFFERENT COLORS. ","^","e: TOGGLE ERASE MODE. mOVE THE CURSOR "," OVER PART OF DRAWING YOU WISH TO ERASE","^ 24 [131]"cONTROL-b: CLEAR SCREEN ","^","l: LOAD A PREVIOUSLY SAVED sEQ FILE. ","^","n: CHANGE NUMBER OF LINES TO EDIT. ","#","STOP(null)ED-(null)ES (null)ODE, CONT.POKE ","^","RIGHT$N (null)ED-(null)ES MODE, MOVE THE CURSOR AROUND 25 DATA"USING THE JOYSTICK. [212]O DRAW, HOLD DOWN ","THE FIRE BUTTON. [201]N ERASE MODE, MOVE THE","CURSOR OVER THE PLACES YOU WISH TO ERASE","AND HOLD DOWN THE FIRE BUTTON TO ERASE. ","([212]HE BORDER COLOR CHANGES TO BLACK TO 26 [131]"REMIND YOU YOU ARE IN ERASE MODE.) ","^","(null)HE COLORS BEING DRAWN MAY BE CHANGED BY","USING THE USUAL COLOR KEYS (CONTROL OR ","LENOMMODORE KEYS AND THE NUMBERS 1-8). ","^","(null)OADING A (null)VAL(null) FILE ERASES ANY DRAWING 27 DATA"YOU MAY BE WORKING ON. ","^","[195]HANGING THE NUMBER OF LINES TO LESS ","THAN WHAT YOU ORIGINALLY ENTERED WILL ","RESULT IN LOSS OF ANY DRAWING BELOW THAT","NUMBER UNLESS YOU CHANGE BACK TO THE 28 [131]"ORIGINAL NUMBER OR LARGER. ","#","STOP(null)EYBOARD (null)ODE:POKE ","^","LENONTROL-PEEK: BLANK THE SCREEN. ","^","LENONTROL-MID$: RETURN TO JOYSTICK MODE. ","^","LENONTROL-LEN: TOGGLE CURSOR COLOR FOR EASE 29 DATA" IN EDITING DIFFERENT COLOR SCREENS. ","^","[195]ONTROL-[196]: DELETE INTO CURSOR. [197]NTIRE "," LINE MOVES 1 CHARACTER AT A TIME INTO "," CURSOR. ","^","[195]ONTROL-[193]: TOGGLES MOVING CURSOR. [212]HE 30 [131]" CURSOR STAYS IN PLACE AFTER TYPING A "," CHARACTER. (null)SE CURSOR KEYS TO MOVE. ","#","STOP(null)EYBOARD (null)ODE, CONT.POKE ","^","RIGHT$N KEYBOARD MODE, THE DELETE KEY WILL ","DELETE ONLY THE CHARACTER UNDER THE 31 DATA"CURSOR, WITHOUT CHANGING THE REST OF THE","LINE. [213]SE [195]ONTROL-[196] TO SHIFT THE ENTIRE ","LINE TO THE LEFT. [212]HE REST OF THE SCREEN","WILL NOT BE DISTURBED. ","^","[201]NSERT WILL MOVE THE ENTIRE LINE TO THE 32 [131]"RIGHT, WITHOUT DISTURBING THE REST OF ","THE SCREEN. ","^","STR$OUBLE QUOTES WILL BE REPLACED WITH A ","SINGLE QUOTE. ","^","(null)HE CLEAR KEY IS DISABLED. ","^ 33 DATA"[193]LL OTHER KEYS WORK AS NORMAL, INCLUDING","THE COLOR KEYS AND REVERSE ON/OFF. ","#"," [144][211]AVING [217]OUR [211]CREEN "," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151] "," [215]HEN YOU HAVE FINISHED YOUR SCREEN, 34 [131]"PRESS ASC7. (null)OU WILL THEN BE GIVEN THE ","OPTION OF SAVING THE SCREEN AS A PROGRAM","FILE OF PRINT STATEMENTS, A SEQ FILE; ","GO BACK TO THE DRAWING; CLEAR SCREEN AND","START OVER; OR QUIT THE PROGRAM. 35 DATA" [201]F YOU CHOOSE THE PROGRAM FILE MODE, ","YOU WILL BE ASKED FOR STARTING LINE AND ","LINE INCREMENT. [208]RESS RETURN FOR THE ","DEFAULT VALUES OF 1000 AND INCREMENT 10."," [201]F YOU CHOOSE SEQ FILE, YOU WILL BE 36 [131]"ASKED IF YOU WISH TRAILING BLANKS TO BE ","REMOVED FROM THE FILE. (null)HE PROGRAM WILL ","PUT A CARRIAGE RETURN IMMEDIATELY AFTER ","THE LAST CHARACTER OF EACH LINE. (null)HIS IS","USEFUL IF YOU PLAN ON USING THE FILE ON 37 DATA"A GRAPHICS [194][194][211], BECAUSE IT SAVES TIME IN","TRANSMISSION. "," [212]HE PROGRAM WILL THEN READ THE SCREEN","INFORMATION WHICH IS STORED IN THE $[195]000","AREA AND CONVERT THE SCREEN CODES TO 38 [131]"ATN(null)LENRIGHT$RIGHT$ CHARACTERS. ","#"," (null)HE CALCULATIONS ARE QUITE INVOLVED, ","AND, SINCE THIS PROGRAM IS WRITTEN IN ","COMPILED PEEKATN(null)RIGHT$LEN, THE SCREEN BLANKS FOR ","INCREASED SPEED. STR$O NOT BE ALARMED. ATN 39 DATA"FULL 25 LINE SCREEN ONLY TAKES ABOUT 45 ","SECONDS TO A MINUTE. "," [217]OU WILL THEN BE ASKED TO INSERT A ","DISK AND PRESS A KEY, AND THEN FOR A ","FILE NAME. [193]T ANY FILE NAME PROMPT, USE 40 [131]"'$' TO SEE AN ABREVIATED DIRECTORY. (null)HE ","SCREEN WILL THEN BLANK AGAIN FOR SPEED. "," ATNFTER THE FILE IS SAVED, YOU WILL BE ","GIVEN THE OPTIONS OF DESIGNING ANOTHER ","SCREEN, GOING BACK TO THE LAST SCREEN 41 DATA"YOU WERE DRAWING, LOADING A SEQ FILE ","YOU HAVE ALREADY SAVED, OR QUITING. "," [201]F YOU HAVE SAVED YOUR SCREEN AS A ","PROGRAM FILE, YOU MAY WISH TO GO BACK TO","THE ORIGINAL DRAWING AND RESAVE IT AS A 42 [131]"(null)VAL(null) FILE, SO THAT IF YOU NEED TO CHANGE ","THE SCREEN LATER, YOU WON'T HAVE TO DRAW","IT AGAIN. ","#"," STOP(null)ECH (null)OTES "," TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKE 43 DATA" aS STATED EARLIER, sCREEN gEM IS ","WRITTEN IN COMPILED basic. tHERE ARE ","ALSO 3 SMALL ml ROUTINES (A sEQUENTIAL ","FILE READER, A JOYSTICK READ ROUTINE, ","AND A MEMORY SWAP ROUTINE). aND, THERE 44 [131]"ARE 2 SPRITES FOR CURSOR REPRESENTATION.","aLL ml AND SPRITE DATA ARE STORED IN THE","$2a7-2ff AND $33c-$3fb AREAS. aLSO, THE ","ENTIRE $c000-cfff AREA IS USED TO STORE ","SCREEN DATA. 45 DATA" tHE RUN/STOP AND RESTORE KEYS HAVE ","BEEN DISABLED FOR SAFETY DURING FILE ","WRITING OPERATIONS. uSE THE NORMAL EXIT ","PROMPTS TO QUIT THE PROGRAM OR TURN THE ","COMPUTER OFF. 46 [131]" iN KEYBOARD MODE, THE NORMAL PRINT ","COMMAND ISN'T USED. tHE KEYS ARE READ ","AND THE SCREEN CODES ARE CALCULATED, ","THEN THE CHARACTERS ARE POKED TO THE ","SCREEN. aDDITIONALLY, ALL CURSOR MOVE 47 DATA"AND DELETE OPERATIONS HAVE BEEN REVISED.","#"," [144][195]ONCLUSION "," [163][163][163][163][163][163][163][163][163][163][151] "," i HOPE YOU WILL ENJOY THIS PROGRAM. i","WROTE sCREEN gEM TO FILL A SPECIFIC NEED 48 [131]"AND THE PROGRAM HAS EXPANDED BEYOND THAT","NEED. aLTHOUGH THERE ARE OTHER SCREEN ","EDIT AND SAVE PROGRAMS, i'VE NEVER SEEN ","ONE WITH THE CAPABILITIES OF THIS ONE. "," i AM ESPECIALLY INTERESTED IN OTHER 49 DATA"POSSIBLE USES FOR MY 'mED-rES' GRAPHICS.","aNY SUGGESTIONS WILL BE APPRECIATED. "," bE LOOKING FOR 'dOC mAKER', WHICH IS ","WHAT i USED TO PRODUCE THIS DOC FILE. ","tHE PROGRAM IS DERIVED FROM sCREEN gEM, 50 [131]"AND WRITES THE ENTIRE DOC FILE IN THE ","FORM YOU ARE SEEING. ","^"," eNJOY!! ","^"," bILLY gODFREY ","\ 51 POKE53281,12:POKE53280,12:PRINT"[147][151]"; 52 READA$:IFA$="^"THENPRINT:GOTO52 53 IFA$="#"THENGOTO57 54 IFA$="@"THEN57 55 IFA$="\"THEN57 56 PRINTA$;:GOTO52 57 PRINTP$; 58 GETB$:IFB$=""THEN58 59 IFA$="@"THENGOSUB67:A$="":GOTO58 60 IFA$="\"THEN63 61 IFB$="Q"THEN63 62 GOTO51 63 PRINT"[147][204]OAD [211]CREEN [199]EM? ([206] OR [195][210]/[217]) 64 [161]A$:[139]A$[178]""[167]64 65 [139]A$[178]"N"[167][153]"LOAD";:[128] 66 [151]198,4:[153]"LOADLOAD"[199](34)"SCREEN GEM";:[153][199](34)",8";:[151]631,13:[151]632,82:[151]633,117:[151]634,13:[128] 67 [151]53281,10:[151]53280,8:[153]"LOAD";:[153]" (null)ED-(null)ES MID$OYSTICK (null)ODE: ";:[153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( ASC1: (null)HI";:[153]"S SCREEN (null): (null)EYBOARD MODE";:[153]" +: (null)LOW DOWN CURSOR "; 68 [153]" -: (null)PEED UP CURSOR ";:[153]" LEN: (null)OGGLE CURSOR COLOR VAL: (null)OG";:[153]"GLE ERASE MODE LENONTROL-PEEK: PEEKLANK (CLEAR) SCREEN ";:[153]" (null): (null)OAD A SEQ FILE FOR EDITING "; 69 [153]" (null): LENHANGE NUMBER OF LINES ";:[153]" ASC8: VALND DRAWING MODE (SAVE) ";:[153]" (null)EYBOARD (null)ODE: ";:[153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( "; 70 [153]" ASC1: (null)HIS SCREEN LENONTROL-PEEK";:[153]": PEEKLANK (CLEAR) SCREEN LENONTROL-MID$: PEEKACK TO ";:[153]"JOYSTICK (MED-RES) LENONTROL-LEN: (null)OGGLE CURSOR COLO";:[153]"R LENONTROL-STR$: STR$ELETE INTO CURSOR":[153]" LENONTROL-ATN: (null)OGGLE AUTO MOVE CURSOR 71 PRINT" [198]8: [197]ND DRAWING MODE (SAVE)"P$;:RETURN